1 CLEAR,12287:A$(0)="8E300086013F22108E9C1686FF3FF20F79C15C10026F18D334F3F228609108E9E9D8D408608108E9C178D38C6203F0286038D3086013F2286FF108E9C163F20F79C158D077D9C152B2220ECF69C16108E9C15A6A0A7808C9C13243E5A26F4A6A0A78039E6A03F024A26F9398DDE4F3F2239108E3000"
2 A$(1)="7F901486033F22E6A02A03F79C144F3F20E6A426014C31AB7D9C142B0220E486023F2239C6070EFB54524F555645203A20":FORI=1TO171:B=I>117:POKE40447+1,VAL("&H"+MID$(A$(-B),I*2+B*234-1,2)):NEXT:CLS:EXEC40448:PRINT"< APPUYEZ SUR C":A$=INPUT$(1):PRINT"COPIE":EXEC40561